home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Updates / General / Canvas 3.0.4->3.0.5 / Canvas™ 3.0.4->3.0.5 patch / Canvas™ 3.0.4->3.0.5 patch.rsrc / ZAP_25449 < prev    next >
Encoding:
Text File  |  1992-10-27  |  1.9 KB  |  91 lines
  1. MinDict 250 dict def
  2. wrk1 ( ) def/wdict 16
  3. /Work75 75 string def /Nmk{Work75 cvs dup}bdf /Npt{put cvn}bdf /dhOdh{Nmk 2 79 Npt}bdf /dhodh{Nmk 2 111 Npt}bdf    /dhSdh{Nmk 2 83 Npt}bdf
  4. /mkFT{
  5.     dupget 0 eq
  6.     {
  7.         dup maxlength dict begin
  8.  
  9.         {1 index/FID ne 2/UniqueID ne and{def}{pop pop}ifelse}forall
  10.         currentdict end
  11.         dup/FDepVector 2 copy get
  12.         [ 
  13.         exch 6 index 
  14.         exch 6 index
  15.         exch{mkFT 3 1 roll}forall pop pop
  16.         ] put dup
  17.     }
  18.     {
  19.         /12 
  20.         tempFT begin
  21.         /FontMatrix [1 0 0 1 0 0] def
  22.         /FontType 3 def
  23.         dup/Encoding get/Encoding exch def
  24.         /proc2 2def
  25.         dup/ft1 exch def
  26.         /ft2 1 array def    
  27.         /FontBBox [0 0 1 1] def
  28.         /BuildChar
  29.         {
  30.             exch dup/ftdt edf begin 
  31.                 wdict begin
  32.                     /chr edf
  33.                     /chrst wrk1 dup 0 chr put def 
  34.                     ft2 0 get null eq
  35.                     {
  36.                         ft1 dup length 2 add dict begin
  37.                         {1 index/FID ne 2 index /UniqueID ne and{def}{pop popforall
  38.                         /PaintType 2 def
  39.                         /StrokeWidth .24 1000 mul ftSize div dup 12 lt{pop 12}if def
  40.                         dict end
  41.                         /q exch definefont
  42.                         ft2 exch 0 exch put
  43.                     }if
  44.                     ftdt/proc2 get exec 
  45.                 end 
  46.             end
  47.         }def
  48.         
  49.         end
  50.      
  51.         tempFT
  52.                 
  53.     }ifelse
  54.     3exch
  55.     definefont exch pop
  56. }bdf
  57. /OLFt{
  58.     dup dhOdh
  59.     
  60.         {
  61.         
  62.         findfont
  63.         {outproc} exch
  64.         mkFT
  65.         pop pop pop
  66.     
  67. }bdf
  68. /ShFt{
  69.     dup dhSdh 
  70.     FontDirectory 1 index known
  71.     {exch pop}
  72.     {
  73.         dup 3 -1 roll 
  74.          
  75.         {ShadChar} exch
  76.         mkFT
  77.         pop pop pop
  78.         
  79.     }ifelse
  80. }bdf
  81. /mshw{moveto show}bdf
  82. /outproc{ft1 setfont gsave chrst sfWidth grestore setcharwidth dblsh}bdf
  83. /dblsh{currentgray 1 setgray chrst 0 0 mshw setgray ft2 0 get setfont chrst 0 0 mshw}bdf
  84. /ShadChar{ft1 setfont gsave chrst sfWidth 1 index 0 ne{exch .05 add exch}if grestore setcharwidth
  85. chrst .06 0 mshw 0 .05 translate dblsh}bdf
  86. /setpen {/penh edf/penv edf/penv2 penv 2 div def/penh2 penh 2 div def}bdf
  87. /CVvec 256 array def
  88. /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI/DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
  89. CVvec 0 32astore pop
  90. CVvec 32/Times-Roman findfont/Encoding get
  91. 32 96 geputinterval